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Abstract 

We argue that symmetric (semi)monoidal comonads provide a means to structure context-dependent notions 
of computation such as notions of dataflow computation (computation on streams) and of tree relabelling 
as in attribute evaluation. We propose a generic semantics for extensions of simply typed lambda calculus 
with context-dependent operations analogous to the Moggi-style semantics for effectful languages based on 
strong monads. This continues the work in the early 90s by Brookes, Geva and Van Stone on the use of 
computational comonads in intensional semantics. 
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1 Introduction 

Since the seminal work by Moggi in the late 80s [25], monads, more precisely, strong 
monads, have become a generally accepted tool for structuring effectful notions of 
computation, such as computation with exceptions, output, computation using an 
environment, state-transforming, nondeterministic and probabilistic computation 
etc. The idea is to use a Kleisli category as the category of impure, effectful func¬ 
tions, with the Kleisli inclusion giving an embedding of the pure functions from 
the base category. Although finer and coarser accounts of effects based on Lawvere 
theories [27] (this reference is only the first in a series of papers; for more recent pre¬ 
sentations, see [28,18]) and arrows/Freyd categories [17,30] also exist, the monadic 
approach remains central and best known. In particular, monads are part of the 
standard libraries of Haskell. 
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But monads do not capture all meaningful kinds of impure computation. In 
particular, they exclude some natural notions where, instead of producing effects, 
computations consume something beyond just values (“contexts” of values). Hence 
it is natural to ask whether comonads, likely with some additional structure (as 
strength for monads), can deliver a solution for such cases. (Combinations of mon¬ 
ads and comonads via distributive laws can then hopefully account for notions of 
computation that are both effectful and context-dependent.) That this may well be 
so was hinted very early on by Brookes et al. [8,9] who demonstrated that what they 
called computational comonads can be used to make denotational semantics inten- 
sional. While that work was not directly involved with general context-dependent 
computation, intensional semantics is a form of impure instrumentation of denota¬ 
tional semantics that fits well into this idiom. 

In functional programming, Kieburtz [20] was first to advocate comonads as tools 
for structuring context-dependent computations and gave some interesting exam¬ 
ples. The specific application of comonads to environment-passing computation or 
implicit parameters has been discussed by Lewis et al. [22]. 

In this paper, we proceed directly from the motivation to treat some impor¬ 
tant notions of context-dependent computation, namely notions of dataflow com¬ 
putation (stream-based computation) and notions of computation on trees such 
as tree relabellings in attribute evaluation. We demonstrate that a rather elegant 
framework for working with these notions of computation is given by symmetric 
(semi)monoidal comonads. Reassuringly, strong monads appear associated with 
symmetric monoidal comonads also in works on the categorical semantics of intu- 
itionistic linear and modal logic [4,7]. We describe some aspects of the structure of 
coKleisli categories corresponding to symmetric (semi) monoidal comonads and de¬ 
scribe then a general interpretation of languages for context-dependent computation 
into such categories. 

We have previously described our proposal at work on language processors for 
dataflow computation [34] and attribute evaluation [35] implemented in Haskell. In 
this paper, written with a different slant, we look into the underlying theory, con¬ 
centrating on the issue of the most appropriate additional structure for comonads. 

The organization of the paper is the following. First, we present a compressed 
recap of strong monads, their Kleisli categories and the semantics of effectful lan¬ 
guages a la Moggi. Then we develop our analogous account of context-dependent 
computation based on coKleisli categories of symmetric (semi)monoidal comonads. 
We emphasize the important differences resulting from the fact that, despite dual¬ 
izing from monads to comonads, we are still interested in transferring as much of a 
given Cartesian closed structure (possibly with coproducts and a uniform parame¬ 
terized fixpoint operation) as possible. Finally, we briefly comment on the relation 
to computational comonads and some important advanced issues that we intend to 
treat in due detail elsewhere. 

We assume that the reader knows symmetric monoidal closed and Cartesian 
closed categories and the categorical semantics of simply typed lambda calculus. 
We reproduce some basics about monads, comonads, strong functors/monads and 
symmetric monoidal functors/comonads. 
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2 Monads and effectful computation 

We begin by a schematic review of the monad-based approach to effectful compu¬ 
tation. The purpose is to recall the central ideas, the technical machinery and the 
big “scheme of things” of this case, so we can establish a standard of what we want 
to achieve in the case of comonads and context-dependent computation. 

2.1 Monads 

The starting-point in the monadic approach to (call-by-value) effectful computation 
is the idea that impure, effectful functions from A to B must be nothing else than 
pure functions from A to TB. Here pure functions live in a base category C and T 
is an endofunctor on C that describes the notion of effect of interest; it is useful to 
think of TA as the type of effectful computations of values of a given type A. 

For this to work, impure functions must have identities and compose. Therefore 
T cannot merely be a functor, but must be a monad. 

A monad on a category C is given by a functor T : C —> C (the underlying 
functor), two natural transformations 77 : Idc —* T (the unit) and p : TT —> T (the 
multiplication) satisfying the conditions 

TA^^TTA TTTA^^TTA 

Tr]A \ t ^ a \ \ tlA 
77-.1 >;4 >7 ,1 TTA-p^r^TA 

This definition says that (T, 77, p) is a monoid in the endofunctor category [C,C\ wrt. 
its (Idc,*) monoidal structure. 

A monad T on a category C induces a category K1(T) called the Kleisli category 
of T defined by 

• an object is an object of C, 

• a map of from A to B is a map of C from A to TB, 

• idS = df A ^ TA, 

• if k : A B, £ : B C, then l o T k = df A -*-> TB TC where 
£* = df TB TTC Mu TC. 

Note that it is the unit 77 and multiplication p that make the Kleisli identity id T 
and composition o T possible; the laws of the identity and composition follow from 
those of 77 and p. 

From C there is an identity-on-objects inclusion functor J to K1(T), defined on 
maps by: if / : A -> B, then Jf = df A -U B ^ TB = A ^ TA ^4 TB. 
(It is truly an inclusion, if 77 is mono, but we ignore this.) It has a right adjoint 
U : K1(T) C given by: UA = df TA and, if k : A -+ T B, then Uk = df TA TB. 

In our application, we use the Kleisli category K1(T) as the category of effectful 
functions and J as an embedding from the category of pure functions C. Accordingly, 
for us, the function t]a = J\Aa '■ A — > TA is the pure identity function on A 
turned into a trivially effectful function. Jf : A —> TB is a general pure function 
/ : A — ► B viewed as trivially effectful. pa = id '■ TTA —* TA “flattens” an 
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effectful computation of an effectful computation, k* : TA —> TB is an effectful 
function k : A —> TB extended into one that can input an effectful computation. 

Well-known examples of monads on Cartesian categories 3 (optionally with co¬ 
products, optionally closed), e.g., Set, include the following. 

The exceptions monad is given by 

• TA =df A + E where E is some object (of exceptions), 

• 7M=df A^+A + E, 

• n A =df (A + E) + E ^ A + E 

and is used for computation with exceptions. Properly impure functions are possible 
thanks to the error-raise operation raises =df E —* A + E. 

The output monad is given by 

• TA =df Ax E where ( E,e,m ) is some monoid (of output traces), e.g., the type 
of lists of a fixed element type with nil and append, 

• r) A =df A A x 1 A x E, 

• p A = d{ {Ax E) x E ^ Ax {E x E)' 1 ^ Ax E 

and is used to handle observable output or time. The important operation for 
generating impure functions is print : E lx E. 

The environment monad is given by: 

• TA =df E => A where E is some object (of environments), 

. rj A =dtMAxE-^A):A^E^A, 

• pa =df A {{E ^{E^A))xE <e ^l d> {E =* A) x E A) 

: E =» {E =► A) -*• E => A. 

It is used to deal with a readable environment. The native operation is ask =<jf 
A(1 x E ^ E) : 1 ^ E ^ E. 

Further important well-known examples include the state monad, the continua¬ 
tions monad, free monads and free completely iterative monads [2], 


2.2 Strong monads 

To be able to use a Kleisli category as a category of computation, we also need it 
to have datatypes. At the very least, it must support something product-like and 
in particular something approximating local composition to interpret let. 

In order for these to exist, the monad must be strong. 

A strong functor on a monoidal category (C, J, <8>) is given by an endofunctor 
F on C together with a natural transformation sU,s : A® FB —> F{A® B) (the 


3 By a Cartesian category we mean one with finite products (the word is also used to refer to categories 
with finite limits). 
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(tensorial) strength ) satisfying 

/0 FA—^F(I ® A) ( A®B)®FC -- *F((A <g> B) <g> C) 

u!fa| *M<U a A ,s,Fcj j^aA.s.c 

FA^^FA A®(B® FC^ A ® F(F ® C)^/(A ® (B ® C)) 

(Note that a monad can generally have more than one strength.) 

A strong natural transformation between two strong functors (F,s\ f ), (G, sl G ) 
is a natural transformation r : F —> G satisfying 

,1 X FB S ' a "F(Ax B) 
id A ®T S j j r A®B 

A®GB^>G(A®B) 

A strong monad on a monoidal category (C, I, ®) is a monad (T, 77 , g) where T 
is a strong functor and 77 , g are strong natural transformations. The latter part 
means that 77 , g satisfy 

A®B = A®B A®TTB^£T(A®TB) T -^S.TT(A®B) 

id A (glT7 S j |r?A®B id a®Mb| 

A®TB-^T(A®B) A®TB --g—- >T(A®B) 

(Note that Id is canonically strong and strong F, G make GF canonically strong.) 

A strong functor (F, si) on a symmetric monoidal category (C, /, ®) is automat¬ 
ically bistrong: it is also endowed with a costrength sta,b ■ FA <g > B —> F(A <g> B) 
whose properties are symmetric to those of a strength. It is defined by 

sr a ,b =df FA ® B B ® FA F(B ® A) *^ F(A ® B) 

A bistrong monad (T, si, sr) is called commutative , if it satisfies 

TA ® TB - 

sr '-''» v 

T(A ® TF) 

Ts| a.b| 

TT(A f F) 

Strength is not a very restrictive condition. In particular, on Set, every monad 
is strong, with a unique strength. The reason is that any endofunctor F on Set 
has a unique functorial strength fs XY : X Y —> FX => FT (internalizing 
its functoriality) and any natural transformation between endofunctors on Set is 
functorially strong. Functorial strength implies tensorial strength. Commutativity 
is rarer. An example of a commutative monad is the exponent monad. 
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Given a Cartesian category C and a (1, x) strong monad T on it, we can manu¬ 
facture “preproducts” in K1(T) using the products of C and the strength si like 
this: 


1 T = df 1 A 0 x T Ai = df A 0 x Ai 

fst T = df r) o fst 
snd T =df r) o snd 

! T =df V o ! (k 0 , ki) T = d f si* o sr o (k 0 , ki) 

With this definition, the typing rules for products hold, but not all laws. In 
particular, the beta-laws fst T o T (&; 0 , k\) T = ko and snd T o T (&; 0 , k\) T = k\ do not hold. 
And the binary operation x T on objects does not extend to a bifunctor (although it 
is a functor in each argument separately). But some other important laws, such as, 
e.g., the eta-law (fst T ,snd T ) T = id T , survive. In particular, (Kl(Y'), J) is a Freyd 
category on C, i.e., a symmetric premonoidal category with an identity-on-objects 
functor from C strictly preserving the (1, x) symmetric premonoidal structure of C 
and also centrality. (Since all maps of C are central, the latter part really means 
sending all maps of C to central maps of K1(T)). 

If C is Cartesian closed, then “pre-exponents” in K1(T) can be defined from the 
exponents of C by 


A => T B =df A => TB 
ev T =df ev 
A T (&) =df V ° A i k ) 


It is not true that A => T — : K1(T) —> K1(T) is right adjoint to — x T A : 
K1(T) —>• K1(T). So =^ T is not a true exponent functor wrt. the preproduct functor 
x T . However A =^> T — : K1(T) —»• C is right adjoint to J(— x A) : C —>■ K1(T): 


J(C x A) -* T B 
CxA^TB 

c^a^ t b 


2.3 Semantics of effectful languages 

Given a strong monad T on a Cartesian closed category C, the pure part of an 
effectful language can be interpreted into K1(T) in the standard way, relying on the 
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generic pre-(Cartesian closed) structure of Kleisli categories of strong monads. 


[AT] t =df an object of K1(T) 

= that object of C 

[A x Bf = df [Ap x T [Bp 

= [Ap x [Bp 

[A =>- Bp = df [Ap => T [Bp 

= [Ap => Sf [Bp 

[Cf =d(IQ,F x T ... x T [C„_i] T 

= [Cop x ... x [Cn-rp 

[(x) Xip = df nf 

= TJOTTi 

x * t in uf = df [(x, x) up o T (id T , [(x) tp) T 

= (IP, x) up)* o si 0 (id, [(x) ip) 

[(x) fst tp = d f fst T 0 T [(x)tp 

= Tfst o [(x)ip 

[(x) snd ip = d f snd T o T [(x)ip 

= Tsnd o [(x)ip 

=df {Ife)ioP,[(^F) r 

= sl*osro([(x)i 0 p,[(x)i 1 p) 

[(x)Axfp = df A r ([(x,x)ip) 

= V° A([(x,x)ip) 

l(x)tuJ T = d f ev T o T ([(x)ip, [(x)np) T 

= ev*osl*osro([(x)ip,[(x)np) 


(The notation (x) i denotes a term i with free variables x; we have left out types; for 
well-typed terms, the interpretation is well-defined.) In the second column, there is 
the “standard” semantics in terms of the pre-(Cartesian closed) structure of K1(T). 
In the third column the same appears spelled out in more primitive terms, after 
simplifications. Note, e.g., that in the semantics of let, sr is not needed, although 
the definition of (—, — ) T involves it; it gets cancelled out in the simplification. 

Constructs specific to particular notions of effect must be interpreted specifically. 
E.g., for exceptions we can use the coproduct monad T and set 

[(x) raise tj T = df raise* o [(x)ip 

As K1(T) is only pre-(Cartesian closed), we have soundness of typing: x : C h 
t : A implies [(x) ip : [Cp —[Ap. But of course not all equations of lambda- 
calculus are validated. 

In particular, we have that h t: A implies [ip : 1 —[A] 7 ! So a closed term t 
of a type A denotes an element of T[Ap. 

3 Comonads and context-dependent computation 

We proceed to an analysis of context-dependent computation. 

3.1 Comonads 

Basics and first examples 

We go straight to the definition and first properties of comonads. Comonads are 
the dual of monads. A comonad is a functor D : C —> C (the underlying functor ) 
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together with natural transformations e : D -4 Idc (the counit ), 8 : D -4 DD (the 
comultiplication) satisfying 


DA DDA 

H \ H 

DDA^-^DA 


DA— S -^DDA 
5a U?5a 

DDA-^DDDA 


In other words, a comonad is a comonoid in ([C,C\, Idc, *). 

Dually to Kleisli categories, a comonad Dona category C induces a category 
CoKl(D) called the coKleisli category of D. This is defined by: 

• an object is an object of C, 

• a map of from A to B is a map of C from DA to B, 

• < = df DA ^ A, 

• if k : A -+ D B, i : B -+ D C, then t o D k = df DA DB -U C where 
A;t = DA ^4 DDA DB. 

From C there is an identity-on-objects inclusion functor J to CoKl(D), defined 
on maps by: if / : A -*■ B, then Jf = d f DA A B = DA DB —^ B. 

The functor J has a left adjoint U : CoKl(D) —* C given by: UA = d f DA and, 
if k : A B, then Uk = df DA DB. 

The intuitive basis for the use of coKleisli categories as categories of impure 
computation should be the following. As before, we think of C as the category of 
pure functions, but D describes a notion of context. DA is the type of values of a 
given type A placed into a context. The category CoKl(D), whose maps are maps 
DA —► B of the base category, is the category of context-dependent functions. 

The function £ a : DA —>■ A is then the identity on A made trivially context- 
dependent, i.e., turned into a function discarding any given context. The function 
Jf : DA —► B is a general pure function f \ A —> B regarded as trivially context- 
dependent in a similar fashion. The function 8a : DA —► DDA duplicates the 
context of a value while hf : DA —> DB is a context-dependent function k : DA -a B 
extended into one that outputs a value of in a context (so it can be postcomposed 
with a context-dependent function). 

Some computationally meaningful examples with C a Cartesian (closed) cate¬ 
gory, e.g., Set, are the following. 

The product comonad is defined by: 

• DA = d f A x E. where E is a fixed object of C. 

• SA =df A x E A, 

• 8 A = df A x E <l ^ d> (Ax E) x E. 

This is the dual of the exceptions monad. But its use is the same as that of the 
environment monad: for TA = d f E => A we have CoKl(D) = K1(T). Hence the 
product comonad can be used for dependence on an environment. The important 
native operation of this comonad leading to impure computations is ask = d f 1 x 
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The exponent comonad is given by: 

• DA =df S A where (S', e, m ) is a monoid in C. 

• £i=df 

. S A =df A(A(^)) :S^A^S^{S^A) where 
6' a =df ((S' => A) x 5) x S -U (S =*• A) x (S x S) (S => A) x S A. 

We come to computational uses soon, but some interesting cases are, e.g., 
( S,e,m ) =df (Nat, 0,+) and ( S,e,m ) =<jf (Nat, 0, max). 

The costate comonad is given by: 

• DA =df (S => A) x S where S is an object of C, 

• £a =df (S => A) x S A, 

• 8 a =df (S^A)xS co ^ id (S =► ((5 =► A) x S)) x S. 

This comonad arises from the composition in the appropriate order of the adjoint 
functors S x — ~\ S =>• —. Composition the other way around gives rise to the state 
monad T defined by TA = S => (A x S). Again we defer the discussion of the 
computational utility. 

The cofree comonad on an endofunctor H on C is given by DA =df uX.A x HX 
(i.e., the carrier of the final A x H(-) -coalgebra, which is the cofree //-coalgebra 
on A). The functor DA =df pX.A x HX (i.e., the carrier of the initial A x H(—)~ 
algebra) is also a comonad, the cofree recursive comonad [33] (dual to the free 
completely iterative monad [2]). The set DA is the set of nonwellfounded resp. 
wellfounded A-labelled iJ-branching trees. Think, e.g., of the case HX =df 1+Xx 
X, leading to binary branching with a termination option. The counit £a '■ DA —► A 
extracts the root label of a given tree (so the root label is the focus value in a tree 
and the rest of the tree is its “context”). The comultiplication 6a '■ DA —> DDA 
replaces the label of every node with the subtree rooted by that node (thus equipping 
every node label with a local copy of its context). 


Comonads for dataflow computation 

Next we look at dataflow computation (stream-based computation). We are 
interested in notions of computation where impure functions from A to B are gen¬ 
eral, causal or anticausal functions from StrA to Str£> where StrA =df uX.A x X 
is the set of streams with elements from A. The physical intuition here is that of 
discrete-time signal transformers; streams represent histories of signals. Causality 
(corresponding to what is physically feasible with signals) means that the present 
value of the output signal can only depend on the present and past values of the 
input signal. Anticausality means dependence on the present and future alone. 

Streams are in natural bijection with functions from natural numbers: StrA = 
Nat =£> A. Hence, general stream functions StrA —> Str£> (as used in dataflow 
languages like Lucid [3]) are in natural bijection with maps (Nat A) x Nat —> B, 
i.e., with coKleisli maps of the costate comonad DA =df (S 4 A) x S where 
S =df Nat. Moreover, the identities and composition of general stream functions 
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and the coKleisli identities and composition agree. So this particular instantiation 
of the costate comonad describes the notion of context used in general dataflow 
computation. We call it the streams with a position comonad, since it pairs an 
input stream of a stream function with a chosen position of interest in the output 
stream. The important operations supported this comonad are fby and next. The 
fby (’followed by’) operation corresponds to initialized unit delay of the input signal, 
while next operation corresponds to unit anticipation. In both cases, the stream is 
shifted but the designated position stays the same. 

For clarity, here is the concrete description for the case C = Set: 


DA = df (Nat A A) x Nat 


ea : (Nat A A) x Nat 


A 

(/a) 

- 

fn 

5a '■ (Nat A A) x Nat 

-> 

(Nat =► ((Nat => A) x Nat)) x Nat 

(/a) 

- 

(A m.(/, m),n) 

fby A : A x ((Nat => A) x Nat) 

-> 

A 

(a 0 o, (/,0)) 


aoo 

(goo, (/,« + !)) 

- 

fn 

nextA : (Nat A- A) x Nat 

-> 

A 

C/» 

*-»■ 

f{n + 1) 


Further, a position in a stream splits it into two parts, a list of elements before 
the position (the past of the signal) and a stream of all remaining elements (the 
present and future): (Nat =>- A) x Nat = ListA x StrA. From here it is not a long 
way to see that the causal stream functions (where the present value of the output 
signal can depend on the present and past values of the input signal, but not on the 
future; programs in the Lustre [13] and Lucid Synchrone [29] dataflow languages 
denote causal stream functions) correspond precisely to the coKleisli maps of the 
comonad DA = d f ListA x A = NEListA = fiX.Ax. (l+X) (this is the cofree recursive 
monad on H defined by HX = d f 1 + X, we call it the nonempty list comonad). 
And the anticausal ones (where the present of the output signal may only depend 
on the present and future values of the input signal) correspond to the coKleisli 
maps of the comonad DA = d f StrA = uX.A x X (the cofree comonad on Idc, also 
equivalent to the exponent comonad DA = d f S => A with [S, e, rn) = d f (Nat, 0,+), 
we call it the stream comonad). Again, in each case the identities and composition 
of stream functions agree with those of the coKleisli category. Of the operations 
discussed above, the first comonad supports only unit delay fby, while the second 
one only supports unit anticipation next. 

The concrete description of the nonempty list comonad is this: 


DA = df NEListA 
10 
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e A : 

NEListA 

A 


(a 0 ,...,a n _i,a„) 

i—> a n 

<5 A : 

NEListA 

-4 NEList (NEListA) 


(a 0 , • • ■, a n -i,a n ) 

((a 0 ),..., (a 0 , ■ • •, a n _i), (a 0 , •. 

fby A : 

Ax NEListA 

-*■ A 


(a 0 o, (a 0 )) a 00 

(a 00 , (a 0 , ■ ■ ■, an, On+l)) ^ a n 


The comonad for anticausal dataflow computation is concretely defined by: 
DA =df StrA 


EA : 

StrA 

-» A 


( a n j a n +lj ■ ■ 

.) i *■ a n 

Sa : 

StrA 

— > Str(StrA) 


( a n j a n+ 1) ■ ■ 

.) (-»• ((a„,a n+ i,...),(a re+ i, 

nextA : 

StrA 

-» A 


( a n j a n +lj ■ ■ 

.) !->• a n+ 1 


Comonads for tree transformations 

A similar example is given by relabelling tree transformations, often specified 
with attribute grammars [21]. Let H : C —> C. We are interested in relabelling tree 
functions Tree A —> Tree# where Tree A =<jf pX.AxHX is the type of wellfounded A- 
labelled U-branching trees. (Relabellings are equally plausible for nonwellfounded 
trees, but we concentrate on the wellfounded case.) At any node of interest in the 
output tree the label is determined by the label at the same node in the input tree 
plus maybe some more nodes. In the case of general relabellings, dependence on the 
labels in all of the remaining tree is allowed. In bottom-up relabellings, only labels 
at and below the position of interest may influence the result. The idea is again to 
mark the node of interest. 

The comonad for general relabellings (corresponding to general attribute gram¬ 
mars with both synthesized and inherited attributes) is the trees with a position 
comonad, the comonad structure on the zipper datatype of Huet [16]. This is defined 
by DA =df Tree' A x A = PathA x TreeA where PathA =<jf List(A x Ft' (TreeA)) = 
pXA + A x H'(TreeA) x X. Here F' denotes the derivative of a functor (container) 
F\ intuitively it is the type of one-hole versions of the container F [23,1]. An ele¬ 
ment of the type Tree 7 A x A consists of an A-labelled tree with the label of one node 
omitted, just to mark this node, along with the omitted label attached separately. 
An element of the type PathA x TreeA is an A-labelled tree, split into the path from 
a node of interest up to the root, together with all side subtrees, and the subtree 
rooted by this node of interest. 

As an example of how the path type is computed for a branching factor H, for 
HX = d f 1 + X x A we have H'X = 2 x X, so PathA “ List(A x 2 x TreeA)). An 


11 


UUSTALU AND VENE 


element in this type is a list of triples (the label of my parent, I am the left or right 
child, the side subtree rooted by my sibling) for every node from the focus node up 
until the root node (excluded) in a tree to relabel. 

The comonad for bottom-up tree relabellings (corresponding to purely synthe¬ 
sized attribute grammars) is the tree comonad, defined by DA =<jf Tree A (the cofree 
recursive comonad on H). An element here represents a subtree of a global tree to 
be relabelled rooted by a node of interest. 

(Notice that bottom-up tree relabellings generalize anticausal stream functions.) 

The important operations of the comonad are for navigation in the tree: up to 
the parent of a given node (this is possible in the case of general tree relabellings) 
and down to the children (possible in both cases). 


From streams and trees to containers 

It is worth noticing that the tree with a position comonad is in fact a coproduct 
of costate comonads and the tree comonad is a coproduct of exponent comonads, 
just as the stream with a position comonad is a costate comonad and the stream 
comonad an exponent comonad. 

The observation is that trees (just as streams) are a special case of containers 
[1], i.e., set functors FA = r jf U s es(-^ => A) where S' is a set (of shapes ) and P an 
assignment of sets (of positions ) to shapes. 

Shape-preserving functions FA —> FB are thus families of maps (P s => A —> 
P s => B) sgS , in other words, maps IIses((-^i => A) X P s ) —► B. The functor 
DA =df Usesm A) x P s ) = F'A x A carries the comonad for the general 
relabellings. 

To speak of abstract bottom-upness, we must confine ourselves to containers 
with some structure, namely: (1) for any shape s & S and position p £ P s , a 
shape s j p £ S (for the shape of the subcontainer below position p in containers 
of shape s), (2) for any shape s £ S, a position 0 S £ P s (the root position), (3) for 
any shape s £ S and positions p £ P s and p' £ P s i P , a position p ■ p' £ P s (the 
position p' in the subcontainer as one in the global container), such that s { 0, 5 = s, 
s I (p • p') — ( s I p) i p'i P • Osj.p = p, 0 S • p = p, and (p ■ p') -p" = p - ( p' ■ p") — a form 
of dependent monoid on the family P. 

The comonad for bottom-up relabellings is then DA =df IIses(-Rs => A) = FA. 


3.2 Symmetric (semi)monoidal comonads 

If C is Cartesian, then the coKleisli category CoKl(D) of a comonad D on C is 
straightforwardly Cartesian, as J : C —> CoKl(T>) is a right adjoint and preserves 
limits. 
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Explicitly, this structure is given by: 

1 0 x D Ai = d f Aq x Ai 

fst D — (if fst O £ = £ O Dfst 
snd D =df snd o e = e o Osnd 
(ho, h) D = d f (ko, h) 

But finding a structure to mimic the exponents of C, if C is Cartesian closed, 
is not so easy. Given that exponents should be internal homsets, it is natural to 
choose 

A=>° B = df DA => B 

It is also unproblematic to match this up with the definition 

ev£ B =df D((DA x A) -U D(DA => B) x DA ^ (DA 0. B) x DA B 

where s a,b =df (Dfst, Dsnd) : D(A x B) —> DA x DB. 

But given k : C x D A —> D B , i.e., D(C x A) —► B, how should we define 
A D (k) : DC —> DA => B, i.e., C A => D B? It only makes sense to set 
A D (k) = df A(k') where k' = DC x DA —+ D(C x A) B. 

Using a strength of D (if available), we could use one of the maps 

DC x DA ^ C x DA D(C x A) 

DC x DA DC x A D(G x A) 

but this gives a solution where the order of two arguments of a binary function is 
important and the context of the value of one of the arguments is discarded. 

The answer lies in symmetric monoidal and semimonoidal comonads. We review 
the definitions. 

A strong [lax] symmetric monoidal functor between symmetric monoidal cat¬ 
egories (C,I, ®) and (C , F, ® r ) is a functor on F \ C —> C together with an iso¬ 
morphism [map] e : I' —> FI and a natural isomorphism [transformation] with 
components it \a,b '■ FA <g/ FB — * F(A ® B) satisfying 

FA <g/ I' FA ®' FI m ' 4 '> F(A ® /) BA ®' FB F(A <g> B) 

U^,J ] F «.» 

A A FA fb<Si > f a—- t f(B<SiA) 

(FA ®' FB) # FC mA ’ B ^ id > F(A ® B) <g>' FC m ^ 0B ’ c > F((A <g> B) <g> G) 

FA ®' (FB ®' FC) iB —■ FA ®> F(B « C) ® (B ®C)) 

A symmetric monoidal natural transformation between two (strong or lax) sym¬ 
metric monoidal functors (F, e F ,m F ), (G, e c , m G ) is a natural transformation r : 
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F —> G satisfying 


/' 


r 



FA ®' FB- 

ta®'t b 


lF(A®B) 


GA ®' GB G(A <8) B) 


A strong [lax] symmetric monoidal comonad on a symmetric monoidal category 
(C,I, < 8 >) is a comonad (D,e,5) where the underlying functor D is a strong [lax] 
symmetric monoidal functor (with preservation of I, ( 8 ) witnessed by e, m) and the 
counit and comultiplication e, 6 are symmetric monoidal natural transformations. 
The latter means that we have 


I 


I 


DA ® DB - 

£A®£b 


>DI 

DA® 


$a®S b 

DDI 

Y 

DDA® 


lD(A®B) 

j^AlglS 

= A®B 


>-D(DA ® DB) -j 


-*-D(A < 8 ) B) 
|$a®.b 
>DD(A®B) 


(Note that Id is canonically symmetric monoidal and that F, G being symmetric 
monoidal make GF canonically symmetric monoidal, so the definition is meaningful. 
Note also that the conditions on e are identical to those of an Eilenberg-Moore 
coalgebra structure on 1 .) 

Fairly often, as we will see shortly, the full structure of a symmetric monoidal 
comonad is not achievable, but not necessary either. We speak of a symmetric 
semimonoidal category, if the unit I is not present (or exists but is not important 
for us), and of a symmetric semimonoidal functor/comonad, if the unit preservation 
witness e is not present. We will later (in Sec. 3.4) show that that this imperfection 
can be avoided by switching to “typed” comonads on presheaf categories. 

Let us revisit our examples. The product comonad, given by DA =<jf Ax E 
with E an object, is lax symmetric monoidal (semimonoidal) as soon as E carries 
some commutative monoid (semigroup) structure e : 1 — > E, m : E x E —> E. 
Indeed, we can then choose e =df 1 lx E, m a,b =df (A x E) x (B x E) — * 
(AxB)x(Ex E) ^ (Ax B) x E. 

The exponent comonad, given by D =df S =>• A with S carrying a monoid 
structure, is strong symmetric monoidal as witnessed by the isomorphism e =<jf 
A (1 x S —> 1 ) : 1 = S => 1 and natural isomorphism =df A(((S A) x (S => 
B))xS < ev °( fstxid )^ 0 ( sndxid )> Ax B) : (S => A) x (S => B) = S => (Ax B). 

The cofree comonad and cofree recursive comonad on any polynomial functor 
HX = 1 + H'X are lax symmetric semimonoidal: we can choose m to “zip” two 
trees together, truncating wherever the branchings at a pair of corresponding nodes 
disagree. In the case of nonempty lists (H'X = c ]f A), this is exactly the customary 
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truncating zipping operation of nonempty lists. Alternatively, a single-node tree 
can be returned for trees of different shapes, pairing just the values at the roots. 

Given a symmetric (semi)monoidal comonad Dona Cartesian closed category C. 
we can define: if k : Cx D A — B, then A D (k) =<jf A(k') where k' = DCxDA 
D(C x A) B. 

How good are the pre-exponents obtained as imitations of exponents? 

If D is strong symmetric (semi)monoidal, then A => D — is right adjoint to 
-x D A: 

Cx D A^ d B 


D(C x A) - 

-> B 

DCxDA- 

7b 

DC —> DA => B 


C^ D A B 

Hence => D is a true exponent functor and CoKl(_D) is Cartesian closed just as C. 

If D is only lax symmetric (semi)monoidal however, then the binary operation 
=> D extends to a functor, but it has few properties of the exponent functor. 

An intermediate case arises when (e and) m satisfy 


DA^=DA 



DA =DA 



DA x DAt^£P(A x A) 


where A ,4 = r ]f (id, id) : A —> A x A. These conditions are automatic, if D is 
strong symmetric (semi)monoidal, but not in the lax case. When met, they yield 
eo! D i = id 74 [ and 1 x 14 /3 0 S4./3 = id d(AxB)- As a consequence, => D becomes a weak 
exponent operation on objects, i.e., we get ev D o D (A (k) x D id 15 ) = k. 

We note that (U, A^) (corresponding to the structural rules of weakening and 
contraction) give a uniform comonoid structure on all objects A of C. Also, the map 
and natural transformation (IdijS) witness that D is an oplax symmetric monoidal 
comonad that also respects the uniform comonoid structure (!, A). 


3.3 Semantics of context-dependent languages 

We are ready to define a general coKleisli semantics of context-dependent languages. 
We interpret lambda-calculus into the coKleisli category CoKl(D) of a symmetric 
(semi) monoidal comonad Dona given Cartesian closed category C of pure compu¬ 
tations. We do this, as if CoKl(L>) was Cartesian closed, even if it may be merely 


15 




UUSTALU AND VENE 


Cartesian “preclosed” in one of the senses discussed above. We get: 


{KJ D = df an object of CoKl(D) 

= that object of C 

m D =df I s 

= 1 

[A x B\ d = df [A} d x d {B} d 

= [Afl B x lBj D 

\A^B\ d = df [Aj D ^ D {Bj D 

= D{A\ d ^ {Bj D 

IQ} D = df [C'oFx c ...x B [C n _ 1 ] D 

= N D x...x[C„. 1 f 

[(x) Xij D = df ?rf 

= 7Tj o e 

x - t in uj D = df [(x, x) uj D o D <id D , [(x) tj D ) D 

= l(x,x)u} D o(e,l(x)t}y 

fe)or = df \° 

= ! 

[(x) fst tj D = d f fst D o D [(x) f] D 

= fsto I( x)fr 

[(x) snd t] D = df snd D o D [(x) tj D 

= snd o l(x)tJ D 

m(to,h)i D = df 

= 

[(x)Axf] D = df A^dfexjf] 0 ) 

= A([(x,x) tJ D o m) 

l(x)tuj D = df ev D o D <[(x) f] D , [(x) u\ D ) D 

= evo ([(x) 


Any construct specific to a particular notion of context receives a specific inter¬ 
pretation. E.g., for the ask construct of a language for computing with an environ¬ 
ment we can use the product comonad and define: 

[(x) a skJ D = df ask o D\ 

And for the constructs of a general/causal/anticausal dataflow language we can use 
the appropriate comonad and define: 

[(®) to fby hJ D = df fby o ([(x) ^jj£, ([(x) 

[(x) next tj D - df next o ([(x) f] D ) t 

Again, we have soundness of typing, in the form x:C_\- t : A implies [(x)f] ° : 
[[C]' 0 —> D [A] 15 , but not all equations of the lambda-calculus are validated. 

For a closed term b t : A, soundness of typing says that |t] D : 1 ~^ D [AJ D , i.e., 
D1 —>■ [[A] D , so closed terms are evaluated relative to a contextuated value of the 
unit type. 

In case of general or causal stream functions, an element of D1 is a list over 1, 
i.e., a natural number, for the time elapsed from the beginning of the history at a 
moment of interest. Of course it identifies a stream position. 

If D is strong or lax symmetric monoidal (not just semimonoidal), we have a 
canonical choice e : 1 —► Dl. This happens, for example, in the case of the stream 
comonad for anticausal dataflow computation. This is adequate as all closed terms 
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in an anticausal language must denote constant streams, with the same value at 
every position. Indeed, there is no way to identify a position with an anticausal 
computation on no input. 

In what sense is this semantics correct? We could compare the generic coKleisli 
semantics to some other generic semantics, e.g., an operational semantics, if we had 
one available. Unfortunately this is not the case: generic operational semantics for 
context-dependent languages is future work for us. 

But we can compare the coKleisli semantics of specific languages to their stan¬ 
dard denotational semantics. Here we can observe the following. Standard dataflow 
languages (Lucid, Lustre/Lucid Synchrone) are first-order and here the coKleisli 
and standard (stream-function) semantics agree fully. How to combine dataflow 
constructs and higher-orderness has been unclear; various designs have been pro¬ 
posed, e.g., Colago et al.’s design with two flavors of function spaces [10]. The 
coKleisli semantics offers a neat design motivated by mathematical considerations, 
namely imitation of closed structure. 

3-4 Precise comonads for dataflow computation and tree transformations 

Several of notions of context that we looked at do not correspond to strong symmet¬ 
ric monoidal comonads. Rather, they correspond to lax symmetric semimonoidal 
comonads, for the reason that m should morally be partial and the total version fails 
to be an isomorphism and rules out the existence of a cohering e. Here indexing in 
the form of use of comonads on presheaf categories can help. 

Consider the case of causal dataflow. Instead of the lax symmetric monoidal 
comonad on Set we could work with a more refined strong symmetric monoidal 
comonad on [N, Set] , where N is the set of natural numbers (seen as a discrete 
category). 

We define: ^ 

(DA) n = df f[ Aj 
j =0 

(e A ) n : ( DA) n - A n 

(do, . . . , On) !-> a n 

(d A ) n : (DA) n - rii=o(^)i 

(a 0 , ■ • ■, On) ^ ((ao), ■ ■ ■, (ao,..., a n )) 

The fby operation can be defined for those A which extend to a functor u —► Set 
where u is the poset of natural numbers: we need to be able to delay stream 
elements. Constant sets are typical examples. 

(fby A ) n : A 0 x(DA) n - A n 

(a 0 o, («o)) ^ a 0 o 

(aoo; (ao, ■ • •, a n , a re _|_i)) 1 * A n —* n +i a n 

(By m-Miwe denote the map that is there, if m < n.) All of the above are same 
definitions as for the causal dataflow comonad defined before, except that we are 
“typed” by the positions in the single shape that streams can have. 
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This comonad is unproblematically strong symmetric monoidal in the right way, 
with e and m defined by 


e n : 1 -» (D l) n 

0 - ( 0 ^ 0 ) 

n+ 1 times 

(DA) n x (DA) n -> (DA) n 

((« 0 ) • ■ ■ j a n ), (a' 0 ,..., a' n )) h-> ((a 0 , a(,),..., (a n , a(J) 

A closed term in a causal dataflow language now denotes a natural transforma¬ 
tion D 1 —* A where 1 = D 1. The nth component is thus an element of A n . i.e., 
the term denotes an element of A n for any position n. Of course typical base types 
would be constant: K n =df K. 

A similar treatment is possible for general dataflow computation and for bottom- 
up and general tree relabelling. In the case of trees, the indexing is by a pair of a 
shape and position. 

4 Discussion 

Brookes, Geva and Van Stone’s computational comonads 

Brookes and Geva’s [8] original example of comonadic computation was inten- 
sional semantics. In its simplest form it is this: As the base category we use the 
category wCpo of cu-cpos and ^-continuous functions. The w-cpo DA is given by 
w-chains of elements of an w-cpo A, partially ordered pointwise. The counit com¬ 
putes the limit of an cj-chain. The multiplication sends an u;-chain to the w-chain 
of its prefixes (seen as w-chains by repeating the last element). 

Notably, this is very similar in spirit to the comonad D on Set given by nonempty 
lists, for causal dataflow, except that nonempty lists are finite sequences and they 
do not have to be chains wrt. some partial order. 

The data and laws of computational comonads were slightly different from those 
of symmetric (semi)monoidal comonads. Most notably, instead of e : 1 —* Dl. 
they had a natural transformation rj with components r)A '■ A DA, required to 
form a uniform Eilenberg-Moore coalgebra structure on all objects A. The natural 
transformations m and s (“merge” and “split”) were governed by laws similar, but 
not fully identical or equivalent to those of a lax and oplax symmetric semimonoidal 
comonad. 


Coproducts and recursion 

As left adjoints preserve colimits, the Kleisli category of any monad on a co- 
Cartesian category C inherits the coproducts of C. The coKleisli category of a 
comonad on a coCartesian category is generally not coCartesian (dually to the case 
of Kleisli categories and Cartesian structure). 

Approximating general recursion (a uniform parameterized fixpoint operation, 
equivalently a uniform trace operation [14]) of a Cartesian base category in a Kleisli 
category is a subtle issue that has received considerable attention [12,26,6]. This 
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is an interesting (and non-dual!) problem also in the case of coKleisli categories. 
Some initial work has been done by N. Frisby in the FP community. 

The coKleisli category of the cofree recursive comonad on a functor H, defined by 
DA =df i_iX.AxHX. always has a partial uniform parameterized fixpoint operation, 
alternatively a partial uniform trace operation, implementing guarded recursion. 
This can also be reformulated in terms of recursive coalgebras, dualizing Milius’s 
completely iterative algebras [24] . We recall that cofree recursive comonads describe 
the context-dependence manifested in bottom-up tree relabellings. 


Combining effects and context-dependence 

It is feasible that a notion of computation combines both effectfulness and 
context-dependence. Such combinations can correspond to distributive laws of a 
comonad over a monad in which case the category of impure functions is the bi- 
Kleisli category of the distributive law. This design appeared already in the work of 
Brookes and Van Stone [9]. We have applied it to clocked causal dataflow computa¬ 
tion, combining causal dataflow and exceptions [34], Power and Watanabe [32] have 
given a definitive account of the mathematics of distributive laws between monads 
and comonads. 


Lawvere theories and arrows/Freyd categories 

Lawvere theories [27] and arrows/Freyd categories [17,30] 4 are finer and coarser 
approaches to effectful computation. Lawvere theories make the effectful opera¬ 
tions of a notion of effect explicit. Arrows/Freyd categories, generalizing strong 
monads/their Kleisli categories, were proposed as an axiomatization of notions of 
impure computation reaching beyond Moggi-style effects. 

Similar treatments of context-dependent computation should also be possible; 
this is an avenue for investigation. 

In the direction of Lawvere theories, we would like to proceed from Power and 
Shkaravska’s [31] analysis of the array comonad (here called the costate comonad) 
as one generated by a Lawvere cotheory. 

Concerning the other direction, we note that arrows/Freyd categories as such 
are not a very interesting analysis of context-dependent computation, since any 
comonad/coKleisli category gives trivially an arrow/Freyd category. While Freyd 
categories are there to axiomatize the aspects of the Cartesian structure of the 
base category that must survive in the category of impure computations, for a 
coKleisli category we know that it is properly Cartesian. The interesting issue is 
to give a useful axiomatization of the additionally desirable symmetric “preclosed” 
structure. Freyd categories were not devised for this. Rather, we are after a suitable 
weakening of the notions of a symmetric closed category a la Eilenberg and Kelly 
(closed structure without monoidal structure) and of the adjunction in symmetric 
monoidal closed structure [11]. We have begun studying this matter with J. Adamek 
and J. Velebil. 


4 Jacobs et al. [15,19] have developed a thorough account of the interrelationship of arrows and Freyd 
categories. 
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5 Conclusions 

We have demonstrated that a number of notions of context-dependent computation 
admit an analysis using symmetric (semi)monoidal comonads, leading to a system¬ 
atic semantics of corresponding languages, analogous in spirit to Moggi’s account of 
effects in terms of strong monads. Our analysis is not distant from that of Brookes 
et al., but we have added important new types of examples (notions of dataflow com¬ 
putation, tree labelling) and streamlined the specific data and laws for obtaining 
an approximation of Cartesian closed structure guided by category-theoretic crite¬ 
ria of canonicity. The resulting picture is quite elegant, especially with the view 
that the important examples where the basic comonad is only lax symmetric semi- 
monoidal can be reworked into examples of strong symmetric monoidal comonads 
using appropriate indexing. 

Recursion (both general recursion and guarded recursion) and finer and coarser 
alternatives to comonads analogous to Lawvere theories and arrows are important 
special topics that we plan to address elsewhere. Likewise we defer to future research 
the study of computational uses of comonad resolutions other than the coKleisli 
resolution and generic operational semantics of context-dependent languages. 
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